''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Sub 패치_셀스타일_삭제()   ''''''''@@@@@@@@@@@@@@@@@@@@'''스타일 제거
  Dim cell_style As Style
  Dim i As Integer
    On Error Resume Next
  For Each cell_style In ThisWorkbook.Styles
     If Not cell_style.BuiltIn Then cell_style.Delete
       i = i + 1
  Next
    MsgBox i & "개의 셀 스타일 삭제 완료!!!"
End Sub

''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Sub 패치_이름정의_삭제()   ''''''@@@@@@@@@@@@@@@@@@@@'''모든 이름정의 삭제
    Dim n As Name
    Dim lngCount As Long
    On Error Resume Next
    lngCount = ActiveWorkbook.Names.Count
    For Each n In ActiveWorkbook.Names
        n.Visible = True
        n.Delete
    Next n
    MsgBox "총 " & lngCount & "개의 [이름] 중, " & lngCount - ActiveWorkbook.Names.Count & "개의 [이름] 삭제 완료."
End Sub


''====================>>====문자서식====================>>====
    Selection.NumberFormatLocal = "yyyy-mm-dd"      ''''------------------------날짜서식
      Selection.NumberFormatLocal = "#,##0_);[빨강](#,##0)"      ''''------------------------숫자서식
      Selection.Font.Bold = True       ''''------------------------두껍게
      Selection.Font.Size = 8     ''''------------------------글자크기
      Selection.Font.Name = "맑은 고딕"
      Selection.Font.Color = vbRed
      Selection.VerticalAlignment = xlCenter   '''''''''''수직중앙
      Selection.Interior.Color = vbYellow  ""-----------------------색상
''====================>>====틀고정하기 및 숨기기취소====================>>====
 Rows("1:10000").EntireRow.Hidden = False     ''''''''------------숨기기취소
 Range("F7").select
   ActiveWindow.FreezePanes = False
   ActiveWindow.FreezePanes = True      ''''''''------------틀고정
   ActiveWindow.Zoom = 100               '''''''''------------화면줌 100%
''====================>>====내려가기 맨아래로====================>>====
  Range("a10").End(xlDown).Select      ''''''''------------내려가기 맨아래로
''====================>>==== 이하 밑 전체 지우기 ====================>>====
    Rows("21:21").Select  ''''''''''''''''''''''''''''''''''''''밑 전체 지우기
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
''====================>>==== 작업중인 폴더 열기 ====================>>====
sub 작업중인폴더열기
 Dim djfolder As Range
 Set djfolder = Range("j1")
Call Shell("explorer.exe" & " " & djfolder, vbNormalFocus)
''====================>>====내려가기 밑으로====================>>====
Sub 내려가기용_통소()
  Dim djco As Range
  Set djco = Range("a1")
    Range("a12").Select
      If djco = 0 Then
      Else
        Selection.Offset(djco, 0).Select
      End If
End Sub

''====================>>====쉬트 변수값====================>>====
    Dim myung2 As String
        myung2 = Range("o7")
    Sheets(myung2).Select

''====================>>====YB 박스 확인창====================>>====
       msg = ActiveSheet.Name & "      "" ###  " & dat & "   ### ""    해당 날짜 이후 모든 자료를 삭제 할까요 ??     "
       ans = MsgBox(msg, vbYesNo)

''====================>>====소팅하기====================>>====
  Sheets("광주").Range("A4:r50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A8:r9"), CopyToRange:=Range("A10:r10"), Unique:=False   ''''''소팅

''====================>>====정렬하기====================>>====
  Selection.Sort Key1:=Range("a7"), Order1:=xlAscending, Key2:=Range("b7"), Order2:=xlDescending, Key3:=Range("c7"), Order3:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=xlSortNormal

''====================>>====선택적 붙여넣기====================>>====
'   ActiveSheet...PasteSpecial Format:="텍스트", Link:=False, DisplayAsIcon:=False    '''''''''''''''''''''''''''''''값만_붙여넣기@@@@@@@
'    selection.PasteSpecial xlPasteValues   '''''''''''''''''''''''''''''''값만 _붙여넣기@@@@@@@
'    selection.PasteSpecial xlPasteFormats   ''''''''''''''''''''''''''''서식만 _붙여넣기@@@@@@@
'    selection.PasteSpecial xlPasteFormulas  '''''''''''''''''''''''''' 수식만 _붙여넣기@@@@@@@

''====================>>====다른파일참조====================>>====
   Application.Run "내려가기_끌기_매입에서"
       Workbooks.Open(workp & "\매입출2009.xls", ReadOnly = True, Password:="8571").Sheets("매입출").Range("a2:z65000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A12:Z13"), CopyToRange:=Selection, Unique:=False
       ActiveWorkbook.Close False   '''''''------------파일닫기

''====================>>====자동계산 멈춤====================>>====
 Application.Calculation = xlManual   '----------------------자동계산 멈춤
 Application.Calculation = xlautomatic   '-------------------자동계산 재시작

''====================>>====선택영역만 자동계산 재시작
 ActiveSheet.Range("a1:e10").Calculate   '-------------------$$$$$$$$$$$$$$$'''선택영역만 재계산
ActiveSheet.Calculate   '-------------------$$$$$$$$$$$$$$$'''선택시트만 재계산

''====================>>====다른시트 셀에 값 입력====================>>====
   Range("월별!k1") = "x"   ''''''''''''''''''2안
''
   Sheets("월별").Range("k1") = "x"   ''''''''''''''''''1안
''====================>>====화면 업데이트====================>>====
 Application.ScreenUpdating = False
 Application.ScreenUpdating = True

''====================>>====화면 업데이트====================>>====
    Rows("50:50").Select  ''''''''''''''''''''''''''''''''''''''밑 전체 지우기
     Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp

''====================>>====견적서에폴더용====================>>====
    Range("q1") = "=IF(MID(LEFT(CELL(""filename""),20),16,4)=""(DJ)"",(LEFT(CELL(""filename""),25)),IF(LEFT(CELL(""filename""),15)=""D:\사무실\Synology"",(LEFT(CELL(""filename""),34)),IF(LEFT(CELL(""filename""),22)=""D:\백업용\DropBAK\Dropbox"",(LEFT(CELL(""filename""),28)),IF(LEFT(CELL(""filename""),14)=""Y:\사무실\Dropbox"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),11)=""D:\사무실\Drop"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),19)=""\\off\D\사무실\Dropbox"",(LEFT(CELL(""filename""),25)),(LEFT(CELL(""filename""),23))))))))&""\견적서_및_계약서"""

range("j1")="매입출!$j$1"
  
''====================>>====현재작업 폴더용====================>>====
'VBA용 >> Range("j1") = "=IF(MID(LEFT(CELL(""filename""),20),16,4)=""(DJ)"",(LEFT(CELL(""filename""),25)),IF(LEFT(CELL(""filename""),15)=""D:\사무실\Synology"",(LEFT(CELL(""filename""),34)),IF(LEFT(CELL(""filename""),22)=""D:\백업용\DropBAK\Dropbox"",(LEFT(CELL(""filename""),28)),IF(LEFT(CELL(""filename""),14)=""Y:\사무실\Dropbox"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),11)=""D:\사무실\Drop"",(LEFT(CELL(""filename""),20)),IF(LEFT(CELL(""filename""),19)=""\\off\D\사무실\Dropbox"",(LEFT(CELL(""filename""),25)),(LEFT(CELL(""filename""),23))))))))"
'셀수식용 >>  =IF(MID(LEFT(CELL("filename"),20),16,4)="(DJ)",(LEFT(CELL("filename"),25)),IF(LEFT(CELL("filename"),15)="D:\사무실\Synology",(LEFT(CELL("filename"),34)),IF(LEFT(CELL("filename"),22)="D:\사무실\DropBAK\Dropbox",(LEFT(CELL("filename"),28)),IF(LEFT(CELL("filename"),14)="Y:\사무실\Dropbox",(LEFT(CELL("filename"),20)),IF(LEFT(CELL("filename"),11)="D:\사무실\Drop",(LEFT(CELL("filename"),20)),IF(LEFT(CELL("filename"),19)="\\off\D\사무실\Dropbox",(LEFT(CELL("filename"),25)),(LEFT(CELL("filename"),23))))))))


''''@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'""======================>>====특정 텍스트 색 변경  ========================
Sub WordColor()   ''''---------------------------------특정 텍스트만 색상 변경
    Dim cell As Range, word As String, startIndex As Integer
   word = InputBox(Prompt:="단어를 입력하세요", Title:="문자열 색 변환")
   If Len(word) > 0 Then
        For Each cell In Selection
            startIndex = InStr(1, cell, word, vbTextCompare)
           If startIndex > 0 Then
                cell.Characters(startIndex, Len(word)).Font.Color = RGB(0, 0, 255)
                cell.Characters(startIndex, Len(word)).Font.Bold = True
           End If
        Next cell
    End If
End Sub